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PL/I is a free-format block-structured programming language 
designed for scientific and commercial applications. PL/I 
Version 1 is a subset of the language defined by the American 
National Standard Programming Language PL/I, X3. 53-1976, 
document. 

PL/I Version 1 operates under control of the following 
operating systems: 

NOS1 for the CONTROL DATA® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, 74; and 6000 Series Computer 

Systems 

NOS/BE1 for the CDC® CYBER 170 Series; CYBER 70 

Models 71, 72, 73, 74; and 6000 Series Computer Systems 

This instant provides a brief description of the major PL/I 
language features. It is intended for programmers familiar with 
PL/I. 

More detailed information can be found in the publications 
listed below. 



Publication 



Publication Number 



CYBER Record Manager Advanced 
Access Methods Version 2 Reference 
Manual 



60499300 



CYBER Record Manager Basic Access 
Methods Version 1.5 Reference 
Manual 



60495700 



FORTRAN Common Library 

Mathematical Routines 
Reference Manual 

NOS Version 1 Reference Manual, 
Volume 1 of 2 

NOS/BE Version 1 Reference Manual 

PL/I Version 1 Reference Manual 



60498200 

60435400 

60493800 
60388100 



CDC manuals can be ordered from Control Data 
Corporation, Literature and Distribution Services, 
308 North Dale Street, St. Paul, Minnesota 55103. 
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words are PL/I keywords. 

words are generic terms that represent the 
words or symbols supplied by the programmer. 

enclose optional portions of syntax- All of 
the syntax within the brackets can be 
omitted or included at programmer option. If 
items are stacked vertically within brackets, 
only one of the stacked items can be used. 

enclose required portions of syntax. If items 
are stacked vertically within braces, only one 

of the stacked items can be used. 



enclose two or more vertically stacked items 
when each of the stacked items can be either 
used once, or omitted. Any items used can 
be written in any order. 

immediately follow an item, a pair of 
brackets, or a pair of braces to indicate that 
the item or enclosed syntax can be repeated 
at programmer option. 

immediately follow an item, a pair of 
brackets, or a pair of braces to indicate that 
the item or enclosed syntax can be repeated 
at programmer option. A comma is required 
between repeated entries. 

separates adjacent items to indicate they can 
be written in any order. Two or more bullets 
separating items at the same bracket or 
brace level indicate all separated items can 
be permuted in any order. 



Punctuation symbols shown within syntax are required unless 
enclosed in brackets. 



UPPER CASE 
Lower case 

Brackets 

[] 

Braces 

\ \ 

Vertical Bars 
Within Brackets 

Di ii] 

Ellipses 



Commas 



Bullet 
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LANGUAGE ELEMENTS 

PL/I is a free-format block-structured programming language 
that can be used for both scientific and business applications. 
This section describes the components of a PL/I program. 



BLOCKS AND GROUPS 

A block is a segment of code that delimits the scope of names, 
determines storage allocation, and influences the flow of 
control. Procedure blocks are delimited by PROCEDURE and 
END statements; begin blocks are delimited by BEGIN and END 
statements; do-groups are delimited by DO and END statements. 



STATEMENTS 

Statements consist of keywords and programmer-supplied 
elements. They declare names and describe the operations to 
be performed at run time. 

[prefix]. . . [statement body] ; 

IDENTIFIERS 

Identifiers reference and identify data, statements, and blocks. 
They consist of 1 to 40 letters, digits, or special characters (a), 
#, $, or _. Identifiers must begin with a letter, (a), #, or $. 

KEYWORDS 

Keywords are identifiers that have special meaning when used 
in a particular context. PL/I keywords are not reserved words. 

COMMENTS 

Comments document the source code. Comments begin with /* 
and end with */ . 
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EXPRESSIONS 

An expression is a series of operands and operators that 
represent the rules for computing a value. 



reference 

literal-constant 

iSUB 

- /-expression 



+ 
-a- 

/ 

*# 



expression 



expression 



(expression) 



< 
<= 

> 
>= 

> 



7 



where reference can be one of: 



simple-reference 



([argument,, ,])J 

| structure-qualifier.)-. • « member-reference 
locator- reference -> based-reference 
identifier 
identifier(subscript , , , ) 




i 



6Q4B3700 A 



DECLARATIONS 



Declarations establish a set of attributes for each identifier 
used in a program. Attributes describe and define data 
elements. 



SCOPE OF DECLARATIONS 

Identifiers with the INTERNAL attribute are known in the block 
that immediately contains the declaration. They are also 
known in those contained blocks that do not contain another 
declaration for the same identifier. 

Identifiers with the EXTERNAL attribute are known in all 
blocks except those that contain a declaration of the same 
identifier with the INTERNAL attribute. 



DECLARE 

The DECLARE statement explicitly declares identifiers in a 
program. DECLARE statements are processed at compile time. 



r, . ,i jDECLARE) , . fr . 

[jaoel:J ... \ __ > declaration, , , ; 

where declaration is 

^ leVeI ^ {(declTraUon, , , )} tension-suffix] [attribute] 



ATTRIBUTES 

Attributes describe identifiers. Table 1 summarizes the 
attributes. If certain attributes are omitted from the 
DECLARE statement, default attributes are assigned by the 
compiler. The standard defaults are listed in table 2. The 
INRULE parameter on the PLI control statement can change 
the defaults. 
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STATEMENT PREFIXES 

Statement prefixes precede the statement body and are 
separated from the statement with a colon. 



CONDITION PREFIX 

A condition prefix can be used with any statement except END, 
ENTRY, and DECLARE. The condition prefix enables or 
disables program interrupts that result when certain conditions 
are raised. 



F, J enabled-condition-name \ * 1 
. \ disabled-condition-name j ' ' J 



ENTRY PREFIX 

An entry prefix must be used with each ENTRY or 
PROCEDURE statement. An entry prefix provides an entry 
point at which a procedure can be invoked. 



entry-name : [entry-name:] . . . 



FORMAT PREFIX 

A format prefix must be used with each FORMAT statement. 
A format prefix references a FORMAT statement and executes 
it during edit-directed stream I/O. 



format-name : [format-name:] . . . 



LABEL PREFIX 

A label prefix can be used with any statement except ENTRY, 
PROCEDURE, FORMAT, and the first statement of an on-unit. 
A label prefix references a source statement. 



label [(subscript ,,,)]:... 
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PROGRAM CONTROL STATEMENTS 

Program control statements define the structure of a PL/I 
program and control the execution of program blocks. 

BEGIN 

The BEGIN statement denotes the start of a begin block. 
Condition prefixes used on the BEGIN statement enable or 
disable conditions for the begin block. 



[prefix] . . . BEGIN ; 



CALL 



The CALL statement invokes a procedure and specifies 
arguments to be associated with the formal parameters. 

[prefix] . . . CALL subroutine-reference ([argument, , ,]) ; 

DO 

The DO statement executes a do-group until a specified 
condition occurs. It has three formats. 



Noniterative DO 
[prefix] ... DO ; 

DO WHILE 

[prefix] . . . DO WHILE(expression) ; 

Indexed DO 

[prefix] . . . DO index = do-specification, , , ; 

where do-specification is 
start-expression 



TO expression 
BY expression I U 



[WHILE(expressi on)] 
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END 

The END statement denotes the end of a procedure block, begin 
block, or do-group. 



[label:] . . . END [closure-name] ; 



ENTRY 



The ENTRY statement denotes a secondary entry point of a 
procedure block. It can specify formal parameters and the 
attributes of the returned value. 



{entry-name: ( . . . ENTRY [(parameter, , ,)] 
RETURNS [(returns-descriptor)] ; 

GOTO 

The GOTO statement transfers control to the statement with 

the specified label prefix. 



r E . n (GOTO I . . . , 

[prefixj... ) GO TO( labeI - reference 5 



The null statement has no effect on program execution. 
[prefix]... ; 



PROCEDURE 

The PROCEDURE statement denotes the beginning of a 
procedure block. It can include formal parameters to be used in 
the procedure block, and the attributes of the value to be 
returned. 



r .... .. i j . i /PROCEDURE) 

[condition-prefix] .. . j entry-name:} .. • ) drop ( 

r> u x -i RETURNS [(returns-descriptor)]!! 

[(parameter,,,)] RECUR5IV L E . || 

OPTIONS(MAIN) [RECURSIVE] 
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RETURN 

The RETURN statement terminates a procedure or on-unit 
activation and returns control to where the procedure was 
invoked or condition was raised. It can specify a value to be 
returned by a procedure. 



[prefix] . . . RETURN [(re turn- value)] ; 



STOP 

The STOP statement raises the FINISH condition. The normal 
termination of the FINISH on-unit is to terminate program 
execution. 




[prefix]... STOP 



1 
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STORAGE CONTROL STATEMENTS 

Storage control statements allocate and free storage during 

program execution. 



ALLOCATE 

The ALLOCATE statement apportions memory for controlled 

and based variables. 



r _. , (ALLOCATE) 

[prefix]... | ALLOC ) 



( controlled-variable J 

< P n — rf\ t- — Mil > »>> > 



based-variable 



5ET(locator)| 
IN(area) 



FREE 



The FREE statement releases storage that was allocated for 
controlled or based variables. 



[prefix] . . . FREE 

controlled-variable 

[iocator-reference->] based-variable / ' ' f ' 

[IN (are a)] 
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CONDITIONAL STATEMENTS 

Conditional statements test for specified circumstances and 

determine the flow of control based on the results of those 
tests. 




IF 

The IF statement tests for a specified condition and directs the 
flow of control along one of two paths. 



[prefix] ... IF expression 
THEN executable-unit- 1 
[ELSE executabie-unit-2] 

where each executable-unit is 



/ begin-biock 

do-group 

ALLOC ATE-state ment 

assignment-statement 

CALL-statement 

CLOSE-statement 

DELETE-statement 

FREE-statement 

GET-statement 

GOTO-statement 

IF-statement 

LOG ATE-state ment 

null-statement 

ON-statement 

OPEN-statement 

PUT-statement 

READ-statement 

RETURN-statement 

REVERT-statement 

REWRITE-statement 

SIGNAL-statement 

STOP-statement 

WRITE-statement 



\ 
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ON 



The ON statement establishes an on-unit for the specified 
condition. The on-unit specifies the action to be taken when 
the condition is raised. 



[prefix] ... ON condition [SNAP] 



j on-unit 
\ SYSTEM 



where on-unit is 



begin-biock 

ALLOCATE-statement 

assignment-statement 

CALL-statement 

CLOSE-statement 

DELETE-statement 

FREE-statement 

GET-statement 

GOTO-statement 

LOCATE-statement 

null-statement 

OPEN-statement 

PUT-statement 

READ-statement 

RETURN-statement 

REVERT-statement 

REWRITE-statement 

SIGNAL-statement 

STOP-statement 

WRITE-statement 
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I/O STATEMENTS 

The input/output statements cause data to be transferred 
between central memory and peripheral devices. Record I/O 
statements transfer complete records to and from CYBER 
Record Manager (CRM) files. A CRM file is a local file known 
to the record manager and the operating system. Stream I/O 
statements transfer strings of data. Edit-directed stream I/O 
formats data; list-directed stream I/O does not format data. 

OPEN 

The OPEN statement opens a file for I/O operations. 



/ 



[prefix]... OPEN 



• 



FILE(file-reference) 



TITLE(expressi on) 

/ENVIRONMENT 

tENV 



r (expression) 



[stream] 

[INPUT] [LINESIZE(expression)] 



[output] 



PRINT 

LINESIZE(expression) 

PAGESIZE(expression) 



[record] 



INPUT 
OUTPUT 

UPDATE 



DIRECT 

SEQUENTIAL 

SEQL 



[keyed] 




* 
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CLOSE 

The CLOSE statement closes a file. 



[prefix] . . . CLOSE I FILE(file-reference) 



ENVIRONMENT), . , 

pK,w / (expression) 



READ 



The READ statement is a record I/O statement that transfers a 
p: v . record from a CRM file to central memory. 

[prefix] . . . READ FILE(f ile-ref erence) 



INTO(read-target) \ 
SET(pointer) > 

IGNORE(expression)J 



KEY(expression) 
KEYTO(key-target) 



REWRITE 



The REWRITE statement is a record I/O statement that 
replaces an existing record in a CRM file. 



[prefix] . . . REWRITE FILE(f ile-ref erence) 

FROM(source) [KEY(expression)] ; 



WRITE 



The WRITE statement is a record I/O statement that transfers a 
record from central memory to a CRM file. 

[prefix] . . . WRITE FILE(file-reference) 

FROM(source) [KEYFROM(expression)] ; 

DELETE 

The DELETE statement deletes a record from a CRM file. 

[prefix] . . . DELETE FILE(f ile-ref erence) 

KEY (expression) ; 
6D483700 A 29 



LOCATE 

The LOCATE statement is a record I/O statement that 
allocates a based variable for use as an output buffer, and can 

transmit a record to a CYBER Record Manager file. 



[prefix] . . . LOCATE based-variable 



FILE(f He-reference) 

FORMAT 



SET(pointer) 
[ilKEYFROM(expression)HJ ' 



The FORMAT statement is used during edit-directed stream I/O 

to control the format of the transmitted data. 



[condition-prefix] . . . \ format-name: ( . . . 
FORMAT(format-specification, , ,) ; 

where format-specification is 



I integer \» orm at-specification f , ,) 

((expression)) r 



[integer 1 
[(expression)] 



/ A [(width)] 
B [(width)] 

j COLUMN \ r , , <\ 

I COL ) L( new - coIumn ^ 

E (width,f d [,sd]) 

F (width [,fd[,scale]l) 

LINE [(new-line)] 

P 'picture-specification' 

PAGE 

R(remote-format) 
SKIP [(line-count)] 
X [(space-count)] 



• 



• 
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GET 

The GET statement is a stream I/O statement which transfers 
data from a peripheral device to central memory. 



File Positioning 

[prefix] . . . GET JCOPY [(file-reference)]] 

[FlLE(file-reference)] SKIP [(line-count)] ; 
Stream Input 
[prefix] . . . GET COPY [(file-reference)]] 



[FILE(file-reference)] SKIP [(line-count)]] 

STRING(input-source) 



/ UST(input-target , , ,) 
) EDIT | (input-target , , ,) 
V (format-specification , , ,) [ ... 

where input-target is 



target-variable 

pseudovariable 

(input-target , , , embedded-do) 
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where embedded-do is 

DO index = < start-expression 



TO expression 
BY expression 



[WHILE(expression)] > , , , 



[integer 1 

(expression) I 



where format-specification is 



/ {(expression) } (^mat-specification , , ,) 



A (width) 
B (width) 

(COLUMN) r , .-, 

| C Q, f [(new-coiumnjj 

E(width,fd[,sd]) 

F (width Lfd [,scale]l ) 

P 'picture-specification' 
R (remote-format) 
SKIP [(line-count)] 
X [(space-count)] 



• 
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PUT 

The PUT statement is a stream I/O statement that transfers 
data from central memory to a peripheral device. 

File Positioning 

[prefix] . . . PUT [FILE(file-reference)] 

(SKIP [(line-count)] \ 

) LINE [(new-line)] V ; 

| PAGE [LINE [(new-line)]! I 



Stream Output 



[prefix] . . . PUT 



[FILE(fiie-reference)] 



SKIP (line-count) 
[PAGE] [LINE [(new-line)]] 



STRING(output-target) 



\ 



LIST(output-source , , ,) 
EDIT -j (output-source , , ,) 

(format-specification , , ,) \ . . 



I ' 



where output-source is 

expression 

(output-source , , , embedded-do) 



where embedded-do is 



DO index = J start-expression 



TO expression 
BY expression J 



[WHILE(expression)] 



where format-specification is 



60483700 A 



33 



< , ^ • \\ (format-specification , , ,) 
UexpressiorO ) 

A [(width)] 



[integer 

Lfe 



xpression)J 



/ 



\ 



B [(width)] 

I COLUMN lr. -, 

I COL J L(new-column)J 

E (width,fd [,sd]) 

F (width Lfd [,scale]l ) 

UNE [(new-line)] 

P 'picture-specification' 

PAGE 

R (remote-format) 

SKIP [(line-count)] 

X [(space-count)] 
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PICTURE SPECIFICATION CODES 

Picture specifications are required for variables declared with 
the PICTURE attribute, and for input/output statements that 
use the P format item. A picture specification consists of a 
group of picture specification codes that describe the type and 
form of a pictured data item. A picture can be specified for a 
pictured character, pictured numeric fixed point, or pictured 
numeric floating point item. 



PICTURED CHARACTER 

A pictured character item has a character value that can 
contain characters, digits, or blanks. 

Pictured character must include at least one A or X code and is 




The picture codes that can be used for pictured character items 
are shown in table 3. 



i 
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TABLE 3. CODES FOR PICTURED CHARACTER 



* 



Category 


Code 


Use 








Character codes 


9 
A 
X 


Digit or blank 
Letter A-Z or blank 
Any character 



PICTURED NUMERIC FIXED POINT 



A pictured numeric fixed point item has a character value that 
represents an edited fixed point decimal value. The character 
value contains the decimal digits and edited characters. 

Pictured numeric fixed must include at least one of the codes 9 
Z * Y T I or R, must include no more than one sign code 5 + - T 
I R CR or DB, can include insertion codes / , . or B at any 
position, and is 



( nondrif ting-field 
1 drif ting-field 



) b [-1 - 



teger) 



where nondrifting-field is 



[*] 



digits 



[$] • ^its {<£} 



where digits is 
Z 




[digit-pas] ... [v] [digit-pos] 



..I V Z... 



where digit-pos is 



9 
Y 
T > 
I 

R 
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where drifting-field is 

[$] • drifting-sign 



($$... [digit-pos] ... [v] [digit-pos] 
)$[$...] V $ . . . 



$[$...] V $ .. . 



fCR) 
IDBf 



where drifting-sign is 



WPJ...H 



9 
LYJ 



The picture codes that can be used with pictured numeric fixed 
point items are shown in table 4. 



PICTURED NUMERIC FLOATING POINT 

A pictured numeric floating point item has a character value 
that represents an edited floating point decimal value. The 
character value contains the decimal digits and the edited 
characters. 



Pictured numeric floating point is 
mantissa < > exponent 



where mantissa must include at least one of the codes 9 Z * Y T 
I or R, must include no more than one sign code S + - T I or R, 
can include insertion codes / , . or B at any position, and is 



digits 
drifting-sig 



.J 




« 
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TABLE 4. CODES FOR PICTURED NUMERIC 
FIXED POINT 



ft 



u 



Category 


Code 


Use 








Digit code 


9 


Digit 




Z 


Leading zero suppression 
digit 




* 


Leading zero replacement 
digit 




Y 


Zero suppression digit 


Decimal point 
code 


V 


Assumed decimal point 


Sign position 

codes 


S 

+ 


Sign + or - (can drift) 
Sign if + (can drift) 




- 


Sign if - (can drift) 


Signed digit 
codes 


T 


Overpunch digit with + 
or - 




"I 


Overpunch digit if + 




R 


Overpunch digit if - 


Sign suffix 

codes 


CR 


Credit indicator 




DB 


Debit indicator 


Currency code 


$ 


Dollar sign (can drift) 


Insertion codes 


/ 


Inserted slash 




j 


Inserted comma 




• 


Inserted period 




B 


Inserted blank 


Scaling factor 
code 


F 


Scaling factor for 
arithmetic value 
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and where exponent must include at least one of the codes 9 Z * ' ; m 
Y T I or R, must include no more than one sign code 5 + - T I or 
R, can include insertion codes / , . or B at any position, and is 



digit-pos . . . 



--- ){♦;;;} [digit-pos]... ( 



The picture codes that can be used for the mantissa and 
exponent fields of pictured numeric floating point items are 
shown in table 5. 

TABLE 5. CODES FOR PICTURED NUMERIC 
FLOATING POINT 



Category 


Code 


Use 




Mant 


issa 


Digit codes 


9 


Digit 




Z 


Leading zero suppression 

digit 




* 


Leading zero replacement 
digit 




Y 


Zero suppression digit 


Decimal point 
code 


V 


Assumed decimal point 


Sign position 

codes 


S 

+ 


Sign + or - (can drift) 
Sign if + (can drift) 




- 


Sign if - (can drift) 


Signed digit 
codes 


T 


Over punch digit with + 
or - 




I 


Overpunch digit if + 




R 


Overpunch digit if - 


Insertion codes 


/ 


Inserted slash 




» 


Inserted comma 




. 


Inserted period 




B 


Inserted blank 



4 
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TABLE 5. CODES FOR PICTURED NUMERIC 
FLOATING POINT (Contd) 



» 



Category 


Code 


Use 


Exponent 


Exponent codes 


E 


Start exponent field 
(supply E) 




K 


Start exponent field 
(suppress E) 


Digit codes 


9 


Digit 




Z 


Leading zero suppression 
digit 




• 


Leading zero replacement 
digit 




Y 


Zero suppression digit 


Sign position 
codes 


S 

+ 


Sign + or - 
Sign if + 




- 


Sign if - 


Signed digit 
codes 


T 


Overpunch digit with + 
or - 




I 


Overpunch digit if + 




R 


Overpunch digit if - 


Insertion 
codes 


/ 

> 


Inserted slash 
Inserted comma 




• 


Inserted period 


j 


B 




Inserted blank 
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BUILTIN FUNCTIONS 



PL/I provides utility routines to perform commonly occurring 
operations. Builtin function names require explicit declaration 
only if the same name is used in another context in a 
containing program block. The builtin functions are 
summarized below. Builtin function names can be abbreviated 
by concatenating the underlined characters. 




Syntax 



Value Returned 



AB5(x) 


Absolute value of x 


ACOS(x) 


Arccosine of x in 
radians 


ADD(x,y,p[,qp 


Sum of x and y to 
precision. (p,q) 


ADDR(x) 


Address of x 


AFTER(strgl,strg2) 


Portion of strgZ that 
occurs after strgl 


ALLOCATION(x) 


Number of generations 




allocated for x 


ASIN(x) 


Arcsine of x in radians 


ATAN(x) 


Arctangent of x in 
radians 


ATAND(x) 


Arctangent of x in 
degrees 


ATANH(x) 


Inverse hyperbolic 



BEFORE(strgl,strgZ) 

BINARY(x[p[,q]l) 
BIT(x[,length]) 



tangent of x in radians 

Portion of strgl that 
occurs before strg2 

Binary representation 
of x to precision (p,q) 

Bit string representa- 
tion of x of specified 
length 



« 
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Syntax 
BOOL(x,y,op) 
CEIL(x) 
CHAR AC TER(x[,l eng th]) 

COLLATE[0] 

COPY(strg,count) 
COS(x) 

COSD(x) 

COSH(x) 

date[0] 

DECAT(strgl,strg2,op) 

DECIMAL(x[pr,qll) 



[p[-4 



DIMEN5ION(x,n) 
DIVIDE(x } y,p[,q]) 

empty[0] 

ERF(x) 
ERFC(x) 

EXP(x) 



Value Returned 



Result of operation op 
performed on x and y 

Smallest integer not 
less than x 

Character string 
representation of x of 
specified length 

All characters in 
collating sequence in 
order 

strg copied count times 

Cosine of x, where x is 
in radians 

Cosine of x, where x is 
in degrees 

Hyperbolic cosine of x, 
where x is in radians 

6-character string 
representing current 
date 

Result of operation op 
performed on strgl and 

strg2 

Decimal representation 
of x to precision (p,q) 

Span of dimension n of 
array x 

Result of x divided by 
y to precisian (p,q) 

An empty area variable 

Error function of x 

Complementary error 
function of x 

Exponential of x 
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Syntax 
FIXED(x,p[,q]) 

FLOAT(x,p) 

FLOOR(x) 
HBOUND(x,n) 

HIGH(length) 



INDEX(strgl,strg2) 

LBOUND(x,n) 

LENGTH(strg) 
LINENO(file-ref) 

LOG(x) 
LOGlO(x) 
LOG2(x) 
LOW(iength) 

MAX(xl,x2,„) 
MIN(xl,x2,„) 

MOD(x,y) 



Value Returned 



Fixed point 
representation of x to 
precision (p,q) 

Floating point 
representation of x to 
precision p 

Largest integer less 
than x 

Upper bound of 
dimension n of array x 

String of the specified 
length of the highest 
character in the col- 
lating sequence 

Portion of strg2 in 
strgl 

Lower bound of 
dimension n of array x 

Length of stVg 

Current line number of 
file fiie-ref 

Natural logarithm of x 

Common logarithm of x 

Logarithm base 2 of x 

String of the specified 
length of the lowest 
character in the col- 
lating sequence 

Highest value of xl, 
x2, ... 

Lowest value of xl, 
x2, ... 

x(modulo y) 




i 
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o 



Syntax 
MUi_nPLY(x,y,p[,q]) 

NULL[Q] 

OFF5ET(polnter,area) 

onchar[o] 
oncode[o] 

ONFILE[()] 

onkey[o] 

ONLOC[()] 

onsource[o] 

PAGENO(fiie-ref) 
POINTER(of f set, area) 

PRECI5ION(x,p[,q]) 
REVERSE(strg) 

ROUND(x,n) 

5IGN(x) 



Value Returned 



Product of x and y to 
precision (p,q) 

A null pointer 

Offset value corre- 
sponding to the given 
pointer value 

Character that caused a 
condition to be raised 

ONCODE value for the 
raised condition 

Name of the file con- 
stant for which the 
CONVERSION condition 

was raised 

Key for the record for 

which the I/O condition 
was raised 

Name of the entry point 

of the procedure in 
which a condition was 
raised 

Character string which 
caused the CONVERSION 
condition to be raised 

Current page number of 
the file fiie-ref 

Pointer value corre- 
sponding to the given 
offset value 

x to precision (p,q) 

Character or bit string 
strg in reverse order 

x rounded at digit n 

-1, 0, or 1 indicating 
if x is negative, zero, 
or positive. 
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Syntax 
SIN(x) 

SIND(x) 

SINH(x) 

SQRT(x) 
SUBSTR(strg,pos[,Iength]) 

SUBTRACT(x jy ,p[ 5 q]) 

TAN(x) 

TAND(x) 

TANH(x) 

TIMER)] 

TRANSLATE(strg,rep[,pat]) 

TRUNC(x) 

UNSPEC(x) 

VALID(pic-var) 

VERIFY(strgl,strg2) 



Value Returned 



Sine of x, where x is 
in radians 

Sine of x, where x is 

in degrees 

Hyperbolic sine of x, 
where x is in radians 

Square root of x 

Substring of strg of 
length specified 
beginning at pos 

x minus y to precision 

Cp>q) 

Tangent of x, where x 
is in radians 

Tangent of x, where x 
is in degrees 

Hyperbolic tangent of x, 
where x is in radians 

6-character string 
representing the cur- 
rent time 

strg with occurrences 
of rep replaced with 
pat 

x with fractional part 

truncated 

Internal bit repre- 
sentation of x 

Indicates if pic-var is 

valid according to its 
picture 

Position of character 
in strgl which differs 
from the corresponding 
position in strg2 
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COMPILATION AND EXECUTION 

The PL/I compiler is called using the PLI control statement. 
The control statement has three possible formats: 

PLI(pl,p2, . . . ,pn) comments 
PLI,pl,p2, . . . ,pn. comments 
PLI. comments 

* Parameters and comments are optional. Parameters can be 

written in *»: order. The possible parameters are: 

B (Binary Output) 

« omitted Write binary output to file LGO. 

B Write binary output to file BIN. 

B=lfn Write binary output to local 

file If n. 

B=0 Suppress binary output. 

BL (Burstable Listing) 

omitted Error and attribute lists begin 

anywhere on page. 

BL Error and attribute lists begin 

on new page. 

COL (Source Columns) 

omitted Source program appears in columns 1 

through 72. 

COL Source'program appears in columns 2 

through 72. 

COL=m/n[/pj Source program appears in columns m 

through n. Carriage control is in 

column p. 

Carriage control characters are: 



blank 



single space 
double space 


1 


triple space 
new page 
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DB (Debug Options) 

omitted Same as DB=Q. 

DB Same as DB=B. 

DB=B Loadable binary output produced 

regardless of errors. 

DB=0 Loadable binary output produced 

for external procedures without 
errors of severity C or F. 



E (Error File) 

omitted Error information written to file 

OUTPUT. 

E Error information written to file 

ERRS. 

E=ifn Error information written to local 

file lfn. 

E=0 Error information suppressed. 



EL (Error Level) 

omitted Same as EL=W. 

EL Same as EL=F. 

EL=I All diagnostics, including 

informational, are listed. 

EL=T Trivial errors and those of 

severity W, F, and C are- listed. 

EL=W Warning error diagnostics and 

those of severity F and C are 

listed. 

EL=F Fatal errors and those of 

severity C are listed. 

EL=C Compiler errors only are listed. 
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ET (Error Termination) 

omitted Same as ET=0. 



ET 
ET=I 

ET=T 

ET=W 
ET=F 
ET=C 
ET=0 



Same as ET=F. 

Abort job step if errors of 

severity I or greater occur. 

Abort job step if errors of 

severity T or greater occur. 

Abort job step if errors of 
severity W or greater occur. 

Abort job step if errors of 

severity F or greater occur. 

Abort job step if errors of 
severity C occur. 

Do not abort job step. 



GO (Load and Execute) 

omitted Same as GO=G\ 



GO 



GO=0 



Binary output is loaded and 
executed after compilation. 

Binary output is not loaded. 



I (Input File) 

omitted 

I=ifn 



Source code is read from file 
INPUT. 

Source code is read from local 
file lfn. 



INRULE 

omitted 
INRULE 

INRULE=0 



Same as INRULE=0. 

Nonstandard default attributes 
are used. 

Standard default attributes 
are used. 
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L (Listing File) 
omitted 
L 

L=lfn 
L=0 

LO (Listing Options) 
omitted 
LO 
LO=A 

LO=0 
LO=R 
LO=5 
LO=0 



Listing written to file OUTPUT. 
Listing written to file LIST. 
Listing written to local file Ifn. 
. Listing suppressed. 




Same as LO=S/A. 

Same as LO=S/A/R. 

Attributes for each identifier 
listed. 

Object code listed. 

Reference list generated. 

Source program listed. 

Only error messages are listed. 



Multiple options can be selected by separating 
options with slashes. 



PD (Print Density) 
omitted 
PD 
PD=6 
PD=8 

PS (Page Size) 

omitted 

PS=n 



Same as PD=6. 

Same as PD=8. 

Listing printed 6 lines per inch. 

Listing printed 8 lines per inch. 



Page size is 60 lines if print 
density is 6, or 80 lines if 
print density is 8. 

Page size is n lines. 
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JOB STRUCTURE 

NOS and NOS/BE PL/I jobs consist of three components: 
control statements, source code, and input data. The 
components are separated by end-of-record marks 
(multipunched 7/8/9 cards). The job is terminated with an 
end-af~file mark (a multipunched 6/7/8/9 card). The following 
is an example of a NOS job: 



job statement. 

USER statement. 
Control J CHARGE statement, (if required) 

Statements \ PLI control statement. 

LGO statement. 

(depending on PLI options) 

7/8/9 

PROCEDURE statement; 
PL/I I other PL/I statements 

Source ) END statement; 

Code 



7/8/9 
Input Data ( Input data (if any) 



\. 



6/7/8/9 



The NOS/BE job structure is the same, except the USER and 
CHARGE statements are omitted. An ACCOUNT statement 
might be required between the job statement and PLI control 
statement, depending on the installation. 



6 
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LIST OF KEYWORDS 



Keywords are identifiers that have special meaning to the 
compiler when used in the appropriate context. PL/I keywords 
are not reserved words. The following is a list of PL/I keywords 
and their functions. Keywords can be abbreviated by 
concatenating the underlined characters. 



A 

AB5 

ACOS 

ADD 

ADDR 

AFTER 

ALIGNED 

ALLOC ATE 

ALLOC ATION 

AREA 

AREA 

ASIN 

ATAN 

ATAND 

ATANH 

AUTO MATIC 

B 

B1,B2,B3,B4 

BASED 

BEFORE 

BEGIN 

BINARY 

BINARY 

BIT 

BIT 

BOOL 

BUILTIN 

BY 

BY NAME 

C 

CALL 

CEIL 

CHAR ACTER 

CHAR ACTER 

CLOSE 

COLLATE 

COL UMN 

COMPLEX 

COMPLEX 

COND ITION 

COND ITION 

CONJG 

CONSTANT 

CONTROLLED 



Format item 
Builtin function 
Builtin function 
Builtin function 
Builtin function 
Builtin function 
Attribute 
Statement 
Builtin function 
Attribute 
Condition 
Builtin function 
Builtin function 
Builtin function 
Builtin function 
Attribute 
Format item 
Format items 
Attribute 
Builtin function 
Statement 
Attribute 
Builtin function 
Attribute 
Builtin function 
Builtin function 
Attribute 
Option 
Option 
Format item 
Statement 
Builtin function 
Attribute 
Builtin function 
Statement 
Builtin function 
Format item 
Attribute 
Builtin function 
Attribute 
Condition 
Builtin function 
Attribute 
Attribute 



« 



1 




• 



50 



6D48370D A 



*■ 



CONV ERSION 

CONV ERSION 

COPY 

COPY 

COS 

COSD 

COSH 

DATA 

DATE 

DECAT 

DECIMAL 

DECIMAL 

DECLARE 

DEFAULT 

DEEINED 

DELETE 

DIMENSION 

DIMENSION 

DIRECT 

DIRECT 

DIVIDE 

DO 

DO 

DOT 

E 

EDIT 

ELSE 

EMPTY 

END 

ENFILE 

ENDPAGE 

ENTRY 

ENTRY 

ENV IRONMENT 

ENVIRONMENT 

ERF 

ERFC 

ERROR 

EVERY 

EXP 

EXTERNAL 

E 

FILE 

FILE 

FINISH 

FIXED 

FIXED 

FIXEDOVERFLOW 

FIXEDOVERFLOW 

FLOAT 

FLOAT 

FLOOR 

FORMAT 

FORMAT 



Condition 

Enabied-condition name 

Builtin function 

Option 

Builtin function 

Builtin function 

Builtin function 

Option 

Builtin function 

Builtin function 

Attribute 

Builtin function 

Statement 

Statement 

Attribute 

Statement 

Attribute 

Builtin function 

Attribute 

Option 

Builtin function 

Option 

Statement 

Builtin function 

Format item 

Option 

Option 

Builtin function 

Statement 

Condition 

Condition 

Attribute 

Statement 

Attribute 

Option 

Builtin function 

Builtin function 

Condition 

Builtin function 

Builtin function 

Attribute 

Format item 

Attribute 

Option 

Condition 

Attribute 

Builtin function 

Condition 

Enabied-condition name 

Attribute 

Builtin function 

Builtin function 

Attribute 

Statement 
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FREE 


Statement 


FROM 


Option 


GENERIC 


Attribute 


GET 


Statement 


GO TO 


Statement 


HBOUND 


Buiitin function 


HIGH 


Bull tin function 


IF 


Statement 


IGNORE 


Option 


IMAG 


Buiitin function 


IN 


Option 


%INCLUDE 


Preprocessor statement 


INDEX 


Buiitin function 


INITIAL 


Attribute 


INPUT 


Attribute 


INPUT 


Option 


INTERNAL 


Attribute 


INTO 


Option 


KEY 


Condition 


KEY 


Option 


KEYED 


Attribute 


KEYED 


Option 


KEYFROM 


Option 


KEYTO 


Option 


LABEL 


Attribute 


LBOUND 


Buiitin function 


LENGTH 


Buiitin function 


LIKE 


Attribute 


LINE 


Format item 


LINE 


Option 


LINENO 


Buiitin function 


LINESIZE 


Option 


LIST 


Option 


LOCAL 


Attribute 


LOCATE 


Statement 


LOG 


Buiitin function 


LOG10 


Buiitin function 


LOG2 


Buiitin function 


LOW 


Buiitin function 


MAIN 


Option 


MAX 


Buiitin function 


MEMBER 


Attribute 


MIN 


Buiitin function 


MOD 


Buiitin function 


MULTIPLY 


Buiitin function 


NAME 


Condition 


NOCON VERSION 


Disabled-condition name 


NOFIXEDOVERFLCW 


Disabled-condition name 


NONE 


Option 


NONVARYING 


Attribute 


NOOVERFLOW 


Disabled-condition name 


NO SIZE 


Disabled-condition name 


NOSTRINGRANGE 


Disabled-condition name 


NOSTRINGSIZE 


Disabled-condition name 
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N05UB SCRIPTRANGE 

NOU NDERFLOW 

NOZ ERODIVIDE 

NULL 

OFFSET 

OFFSET 

ON 

ONCHAR 

ONCHAR 

ONCODE 

ONFIELD 

ONFILE 

ONKEY 

ONLOC 

ONSOURCE 

ONSOURCE 

OPEN 

OPTION 5 

OUTPUT 

OUTPUT 

OVERFLOW 

OVERFLOW 

P 

PAGE 

PAGE 

PAGENO 

PAGENO 

PAGESIZE 

PAR AMETER 

PICTURE 

POINTER 

POSITION 

PREC ISION 

PREC ISION 

PRINT 

PRINT 

PROC EDURE 

PROD 

PUT 

R 

RANGE 

READ 

REAL 

REAL 

RECORD 

RECORD 

RECORD 

RECURSIVE 

REFER 

REPEAT 

RETURN 

RETURNS 

RETURNS 

REVERSE 



Disabled-condition name 
Disabled-condition name 
Disabled-condition name 
Builtin function 
Attribute 
Builtin function 
Statement 
Builtin function 

Pseudovariable 

Builtin function 

Builtin function 

Builtin function 

Builtin function 

Builtin function 

Builtin function 

Pseudovariable 

Statement 

Option 

Attribute 

Option 

Condition 

Enabled-condition name 

Format item 

Format item 

Option 

Builtin function 

Pseudovariable 

Option 

Attribute 

Attribute 

Attribute 

Attribute 

Attribute 

Builtin function 

Attribute 

Option 

Statement 

Builtin function 

Statement 

Format item 

Option 

Statement 

Attribute 

Builtin function 

Attribute 

Condition 

Option 

Option 

Option 

Option 

Statement 

Attribute 

Option 

Builtin function 
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REVERT 


Statement 


REWRITE 


Statement 


ROUND 


Buiitin function 


SEQUENTIAL 


Attribute 


SEQUENTIAL 


Option 


SET 


Option 


SIGN 


Buiitin function 


SIGNAL 


Statement 


SIN 


Buiitin function 


SIND 


Buiitin function 


SINH 


Buiitin function 


SIZE 


Condition 


SIZE 


Enabled-condition name 


SKIP 


Format item 


SKIP 


Option 


SNAP 


Option 


SOME 


Buiitin function 


SORT 


Buiitin function 


STATIC 


Attribute 


STOP 


Statement 


STORAGE 


Condition 


STREAM 


Attribute 


STREAM 


Option 


STRING 


Buiitin function 


STRING 


Pseudovariable 


STRING 


Option 


STRINGRANGE 


Enabled-condition name 


STRINGSIZE 


Condition 


STRINGSIZE 


Enabled-condition name 


STRUCTURE 


Attribute 


SUBSCRIPTRANGE 


Condition 


5UB5CRIPTRANGE 


Enabled-condition name 


SUB5TR 


Buiitin function 


5UBSTR 


Pseudovariable 


SUBTRACT 


Buiitin function 


SUM 


Buiitin function 


SYSTEM 


Option 


TAB 


Format item 


TAB 


Option 


TAN 


Buiitin function 


TAND 


Buiitin function 


TANH 


Buiitin function 


THEN 


Option 


TIME 


Buiitin function 


TITLE 


Option 


TO 


Option 


TRANSLATE 


Buiitin function 


TRANSMIT 


Condition 


TRUNC 


Buiitin function 


UNALIGNED 


Attribute 


UNDEEINEDFILE 


Condition 


UNDERFLOW 


Condition 


UNDERFLOW 


Enabled-condition name 


UNSPEC 


Buiitin function 
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UN5PEC Pseudovariable 

UPDATE Attribute 

UPDATE Option 

VALID Builtin function 

VARIABLE Attribute 

VAR YING Attribute 

VERIFY Builtin function 

WHEN Option 

WHILE Option 

WRITE Statement 

X Format item 

ZERODIVIDE Condition 

ZERODIVIDE Enabled-condition name 



* 
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